home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / WINDO_EX.BAS < prev    next >
BASIC Source File  |  1988-09-17  |  759b  |  28 lines
  1. '
  2. ' *** WINDO_EX.BAS -- WINDOW statement programming example
  3. '
  4. PRINT "Press ENTER to start."
  5. INPUT;"",A$
  6. SCREEN 1 : COLOR 7              'Grey screen.
  7. X = 500 : Xdelta = 50
  8.  
  9. DO
  10.    DO WHILE X < 525 AND X > 50
  11.       X = X + Xdelta            'Change window size.
  12.       CALL Zoom(X)
  13.       FOR I = 1 TO 1000         'Delay loop.
  14.          IF INKEY$ <> "" THEN END   'Stop if key pressed.
  15.       NEXT
  16.    LOOP
  17.    X = X - Xdelta
  18.    Xdelta = -Xdelta             'Reverse size change.
  19. LOOP
  20.  
  21. SUB Zoom(X) STATIC
  22.    CLS
  23.    WINDOW (-X,-X)-(X,X)         'Define new window.
  24.    LINE (-X,-X)-(X,X),1,B       'Draw window border.
  25.    CIRCLE (0,0),60,1,,,.5       'Draw ellipse with x-radius 60.
  26.    PAINT (0,0),1                'Paint ellipse.
  27. END SUB
  28.